;             NEWSNET Script File
;             Please see READ.ME for details
;LOGON TO NEWSNET THRU TELENET
jump begin
label PLEASE
clear
mess      PLEASE TRY AGAIN.  NEWSNET IS NOT RESPONDING.
.
bye
abort 
label begin
wait delay 20
reply @
wait delay 10
reply |
wait delay 10
reply |
whenever "TERMINAL=" reply |
wait char "@"
REply C 21566|
WAit String "connected"
WAit Char ">"
REply ID ***  ID ***|   
otimeout 300 jump PLEASE
wait string "-->"
